AAAAAAAAA HIIII111 LLL 
AAAAAAAAA III! LLL 
AAAAAAAAA HII LLL 
AAA ABA II] LLL 
AAA AAA III LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAK AAA II] LLL 
AA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA Ili LLL 
AMA AAA III LLL 
AAAAAAAAAAAAAAA III LLL 
AAAAAAAAAAAAAAA II] LLL 
AAAAAAAAAAAAAAA II] LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA IIIIIII11 LLLLLLLLLLLLLLL 
ABR AAA IIIIIIII1 LLLLLLLLLLLLLLL 
AAA AAA IIIIIIII1 
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_MAILSPRINT QUEUE MAIL MESSAGE FOR PRINTING bese -Sep-19 : 1:14:1 VAX=11 33-32 V4.0-742 Page 1 
14-Sep-1984 12:42:2 DISK$V "eh STER: CMAIL.SRCIPRINT.B32; 1 (1) 


| 3 1 001 8 MODULE MAILSPRINT( RTITLE ? QUEUE LM MAIL MESSAGE FOR PRINTING‘ . 
3 ¢ 00 IDENT = ‘V04 ; 
13 005 1 BEGIN : 
EB 4 004 1 $ 
: 5 0005 1! ; 
, $ BS : EP eee Tiees “heen ar 12.0, Cee ae ae Ps 
: 'e * ; 
; 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * F 
: 9 0009 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD. MASSACHUSETTS. * 2 
; 19 i : - ALL RIGHTS RESERVED. * ; 
> . ® e 
; \¢ Bog 1 !* THIS SOFTWARE is FURNISHED 7 Uoer A LICENSE AND MAY BE USED AND COPIED * ; 
cy 015 1 !* ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE * : 
: 4 «616 0014 1 !* INCLUSION OF tHE ABOVE COPYRIGHT NOTICE. THIS SOFT WARE OR ANY OTHER * ; 
, 695 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * . 
: 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * . 
; 4 0017 1* TRANSFERRED. * ‘ 
s '® * Py 
3 13 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
; @& 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
; $} p06] } :* CORPORATION. a : 
. '@ ® Py 
27 $058 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR SEL LABTLITY OF ITS * ° 
: 26 Bose 1 !® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 3 
ss) ae 0025 1 !« * $ 
: oo 0026 1 !* * 3 
: a7 0027 1 ee ee rake area eee REET ETAT ATTA RETAKE KARA Re eee 3 
; ae 0028 1! 3 
ce, ov if 94 1 3 
; 0030 1 !++ 3 
3 HI i ! FACILITY: VAX/VMS MAIL UTILITY : 
: tz 0038 : ABSTRACT: QUEUE THE CURRENT MESSAGE FOR PRINTING : 
; $2 st $4 : ENVIRONMENT: NATIVE/USER MODE : 
: 37 0037 1 ! AUTHOR: LEN KAWELL, CREATION DATE: 10-JUN-1979 : 
; 2 0038 1! 3 
; 0039 1 =! MODIFIED BY: 3 
: 40 0040 1! 3 
s 1 0041 1! v03-008 nopgot? Robert Posniak 6-JUL-1984 3 
s 62 0042 1! poet a - > Gntaes /MAIL, use process default protection on : 
yal oes BG i 7 
s 6§ 045 1! v03-007 BLS0272 Benn Schreiber 18-FEB-1984 13:38:20 3 
; 6 R268 1! Sigh. Missing dot. : 
>: 67 0047 1! 3 
; 68 0048 1! V03-006 BLS0263 Benn Schreiber 5-F EB-1984 3 
; $3 se ! Unless /MAIL, use process default protection on EXTRACT. : 
, OF 051 1! v03-005 BLS0255 Benn Schreiber 28-Dec-1983 3 
3 26 008 1! Include extract command code in here. Add extract/mail 3 
Le 0055 1! to create sequential mail file. When printing, set 3 
; ¢¢ Oa ee : flag_first and no-trail if we can. : 
; 8028 1! v03-004 BLS0227 Benn Schreiber 6-Jul-1983 3 
; WW 0057 1! Upgrade to latest job controller 3 


BS any ple, ES So BR Dap ies pe Se oad ane 


MA RINT QUEUE MAIL MESSAGE FOR PRINTING bse Sep- Liss-32 V rhe P 
" Moe +806 12r8P=}88e 93:13:58 Nab SF ERS MRO ete peiwr.as2;1° 2% «15 
; 8 1! 

; 9 2 . 3 v03-003 BL S0ee> Benn Schreiber 17-Jun-1983 

: $4 i } t FOP=SQ0 on temp f 

: 6 006¢ 1! v03-002 BL$0222 Benn Schreiber 19-May-1983 

3 o7 Boer : Make temp file in SYS eth ATCH: 

ee 0065 1! v03-001 BLS0211 Benn Schreiber 7=Jan-1983 

: 66 0066 1! Add support for ISAM mail files. Recursively translate 

; 24 84 ' queue name. 
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/MAILSPRINT QUEVE MAIL MESSAGE FOR PRINTING 16-Sep-1984 01:14:1 VAX-11 Bliss-32 V4.0-742 Page 
_ v04-000 19-808-1 3b 95:13:58 DISKSVMSMASTER: CMAIL.SRCIJPRINT.B32;1 . 
ls 70 069 1! 
ls 71 070 1 ! INCLUDE FILES: 
ls es 071 1! 
tee. 072 1 LIBRARY 'SYSSLIBRARY: STARLET’; 
| 74 0075 1 REQUIRE ‘SRC$:MAILREQ'; 
: o 8 iy : ; LIBRARY ‘LIBS:MAILDEF'; 
: 77 8 1 1 ! TABLE GF CONTENTS: 
; 78 § 1! 
s 79 0 1 FORWARD ROUTINE 
; 0224 1 MAILSPRINT: NOVALUE, ' Print message 
: 3 8 a CANCEL_GETQUI : NOVALUE, ' Cancel GETQUI in progress 
| o¢ 8 § : CLOSE_JOB : NOVALUE; ! Close current job 
>; (BS 0228 1 OWN 
s 85 0229 1 CURQUE DESC : DYN_DESC_DECL, ' Current qyeus descriptor 
; 86 0230 1 DEFDIRDESC : DYN_BESC_BECL, ' Default dir + ‘.mai' 
, oy 0 H 1 CURJOBID ' Current job ID 
; B® 0 ¢ 1 FILES QUEUED, ! Number of files queued 
; 0233 «(1 EXITSTATUS: LONG ! Exit status 
: 90 0234 1 GETQUIEXITBLOCK: VECTORC4) i Exit handler control block 
; «(91 0235 1 INITIAL(O, ! declared during GETQUI 
; bs38 : FANCEL GETQUI, ! routine address 
; 94 $534 1 ict cacti 
; 95 0239 1 EXITBLOCK: VECTORC4 ! Exit handler control block 
; 86496 psee 1 INITIAL(O, ! forward Link 
“Oem 4 0241 1 CLOSE_JOB, ! Routine address 
; #498 Ose6 1 - ! Argument count 
; 299 0243 1 EXITSTATUS), ' Location to receive status 
; 130 oS : ; EXITDECLARED: LONG; ! Exit handler declared flag 
; 136 0246 1 ! EXTERNAL REFERENCES: 
s 0 0247 1! 
; 104 0248 1 EXTERNAL 
: 105 0249 1 MAILSGL_FLAGS : SBBLOCK, ‘mail control flags 
: 106 0250 1 MAILSL_ ‘Number of messages currently in vector 
: 107 0251 1% MAILSL~CURMSG: REF $BBLOCK, ‘Pointer to current message block 
: 108 ose6 1 MAILSL_MSG_NUM, ‘Current message number 
; 109 0255 1 MAILSL_MSG_STS 'Message status 
: 110 0254 1 MAILSL_MSG_ ADR, ‘Sequential msg address 
.° 993 0255 1 MAILSW_MSG_RSIZ_: WORD, ‘Sequential msg size 
: 112 0256 1 MAILS$L_MSGBU ; 'Size of whole message buffer (seq file) 
s 415 oS2e 1 MAIL$Q_USERDEF : SBBLOCK, iPescr jptor of mail dir ; 
: Ng 8 28 : MAILSB_MSGTRAN : BYTE; 'Transition for isam msg reading 
s 116 8 60 1 EXTERNAL ROUTINE 
3 117 61 1 CLISPRESENT, 'True if quel {tier present 
; #118 0 66 1 CLISGET VALUE, 'Get qualifier value 
; 199 8 635 1 MAILSF IRD_MSG ‘Find sequential message 
: 120 64 1 MAILSFIND~1_MSG, iFind isam msg 
: 121 0265 1 MAILSGET_T ASG, ' Get ISAM message text 
; 138 6¢ 1 MAILSGET-MSG, ! Get message text 
oe 67 1 MAILSGETASG ' Get text for signat code 
: 124 68 1 MAILS$PUT_OUfPUT i Put to SYS$OUTPOT 
: 125 4 1 MAILSREWIND_1I MSG, ‘Rewind isam message 
: 126 0 1 MAILSREWIND_MSG, 'Rewind sequential message 
l 


MAILSPRINT QUEUE MAIL MESSAGE FOR PRINTING 18-5 $ep-1984 01:14: VAX-11 Bliss-32 V4.0-742 
/v04=000 Sat PEE Set HS oe tat 


UBJ, 'Test presence 0 of = Line 


‘Concatenate tPin 

° ! Pealloca ° gale string 
NAME 'Get filename spec 

10 ERROR; ! Signal 1/0 error 

} Define protection mask 


LITERAL 


PRO-WLD = 
NO_ACCESS 


SND_PRO = 4 tile pretect ton 
) 

| 

| 


SOOCOCCCOCOCOCOCOOOCOOCOOOOOOO 


( XABSM ar et OR *xABSM -NODEL 
( XABSM_-NOEXE OR XABSM_NODEL 
(XABSM_NOREAD OR XABSM_NOWRITE OR XABSA” -NOEXE OR XABSM_NODEL 
(XABSM_NOREAD OR XABSM_NOWRITE OR XABSM_NOEXE OR XABSM_NODEL 


FILE PRO = 
TXABSM_NOEXE * PRO_SYS) OR 


DODO 0.0900 0900 0900 0900 09 09 id dd 
AEN OO NOME OOO0 SOR Oe OOS IO One 


MIMPMOPoPoPoToT 


TESS 

; (NOTACCESS * PRO-WLD); 
Define local names for shared messages 
$SHR -MSGDEF (MAIL, 126, LOCAL, 

(CREATED, INFO) 

(CONF QUAL , WARNING) 

CINVQUAVAL WARNING) , 
TERROR) 


R 
(READERR, WARNINGS, 
(WRITEERR,ERROR)): 


DADAM UVIUIVIVIE BEBE EEE EPI 


tA 
ME WN 0 OO NO UI EWN © ODN NEW 0 ODNOU EWN" OOONOUFSWNROOO~n 


SOOOoooooowono 
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wuvvUUvUUD 
SOOOCOCOCOCCOCOCOCOCOOCOOCOSOOCOoOoOOOOOoOOoOO 
WANA AWA AAA AAA AAAI Aino 


BIND 
NG = UPLIT(BYTE(FF)) 
E_DESC 


= $DESCRIPTOR('SYSSSCRATCH:MAIL.LIS*) : $BBLOCK; 


yn 
J 
~ 


et ee ee et ee a el lt el ell lt lt el lt el eel lt cee elt lt eels lt lt lt lt cells cl cl cl 


et et ot ot ot ot I OOO 
CSONOUVE WN "OC Oa~n 


NNNNNNOOO 
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> 
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‘cm 
bad 


tatatad Sat adatatadbatabadad 
OONAOVLS WN "OO O@O~n 


49 41 


PRINT 
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QUEUE MAIL MESSAGE FOR PRINTING 


POUT INE WRITE_REC (SND_RAB) = 
FUNCTIONAL DESCRIPTION: 
Write record to output file 
INPUTS: 
' 


BEGIN 


— WAPI) 
os 


9¢ Bono 
54 41 52 43 53 24 53 59 0001 
53. 49 4C 2E& 4C€ 00010 
Babig 
00000014 00018 
00000000" 0001¢ 
44 4€ 45 50 50 41 00020 
Bose 
00000006 00028 
00000000' Beo§s 
4C 4C 41 000 : 
00 
00000003 00034 
00920079" it 8 
46 54 58 4 003¢ 
00000004 00040 
90990098" 0044 
52 45 44 41 45 4 0048 
Boek 
4 4 005 
0000000° 00054 
4C 49 06h ry Baee 
80000000" 80060 


00# 00000 
m2 Oe ue 
00# 00008 


” RS 


M 
16°S 
14- 


1 


Sep-1986 2:42 


SND_RAB is address of rab, RSZ and RBF filled in 


—- $SPUT (RAB=.SND_RAB,ERR=UTILSREPORT_IO_ERROR) 


1g VAX=11 $-32 V4.0-742 
DISK$V neh TER: (MAIL. SRCIPRINT.B32; "the 


«TITLE MAILSPRINT QUEUE MAIL MESSAGE FOR PRINTING 
-IDENT \vV04-000\ 
-PSECT S$CODE$,NOWRT,2 
P.AAA: .BYTE 12 
P.AAC: .ASCII \SYSS$SCRATCH:MAIL.LIS\ 
-BLKB 3 
P.AAB: .LONG 20 
eADDRESS P.AAC 
P.AAE eASCII \APPEND\ 
-BLKB 2 
P.AAD -LONG 6 
-ADDRESS P.AAE 
P.AAG eASCII \ALL\ 
-BLKB 1 
P.AAF ONG 3 
ADDRESS P.AAG 
P.AAI: SCII \EXTF\ 
P.AAH: .LONG 4 
ADDRESS P.AAI 
P.AAK: ASCII \HEADER\ 
-BLKB 2 
P. AAJ LONG 6 
-ADDRESS P.AAK 
P.AAM: nee at \MAIL\ 
P.AAL: 
“ADDRESS P.AAM 
-PSECT SOWNS,NOEXE,2 
CURQUE _DESC: 
-BYTE 02) 
-—BYTE 14, 2 
-BLKB 4 
DEFDIRDESC: 
BYTE of2) 
| oa 


~BLK 
CURJOBID: 


— | 


Routine Size: 


QUEUE MAIL MESSAGE FOR PRINTING 19° 


19 bytes, 


N R 
sep713be $2543 

00014 FILES QUEUED: 

00018 EXITSTATUS: 


»BLKB 
00000000 0001C GETQUIEXTBLOCK: 
"hae CANCEL_GETQUI 
. ADDRESS EXITSTATUS 


V 00020 
024 

* 00028 
C EXITBLOCK 


4030 
ite 

* 00038 
0003¢ EXITDECLARED: 


.PSECT 
0000 00000 WRITE REC: 
000000006 00 9F 00002 PUSHAB 
4 Ac oD 00 
000000006 00 02 0 0B CALLS 
0001 RE 


Routine Base: S$CODE$ + 0064 


af VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: CMAIL.SRCIPRINT.B32;1 


— 


"LON 
‘hea CLOSE _JOB 
ADDRESS EXITSTATUS 


MAILSEL FLAGS. MAILSL_NM 

MAIL$L_CUR MAILSL~ mee” NUM 

MALL $i ASG mere MAILSC_MSG_RADR 
“MSG rsit 


= 
— 
cre 
bad 
af 


MAILSE “MSGBuF S12 
MAIL$SQ~USERDEF, MAIL$B_MSGTRAN 
CLISPRESENT CLISGET VALUE 
MAILSFIND_MSG MAIC SEIND 1 1_MSG 
MAIL$GET_T mse MSG 
MAILS$GETASG, RAILSPUT SOUTPUT 
MAILSREWIND.1_MSG 

MAILSREWIND MSG 

MAILSTEST_SOBJ STRSCOPY _Dx 
STRSCONCAT, STRSFREE1_DX~ 
UTIL$SGETFILENAM 
UTILSREPORT_10_ERROR 

SYS$PUT 


SCODES,NOWRT ,2 


Save nothin 
ufiCstePoRt. 10_ERROR 
#2, SYSS$PUT 


Page 


6 
(3) 


; Routine Size: 25 bytes, Routine Base: S$CODE$ + 0077 


4.0-742 
:CMAIL.SRCIPRINT.B32;1 


MAILSPRINT QUEUE MAIL MESSAGE FOR PRINTING 1b-5e $ep-1984 VAX-11 Bliss- 
yoLto0G eee t8Re PS13:38 | Ped RAS. 
; 133 4 ROUTINE WRITE_FF (SND_RAB) = 
3 1% $ FUNCTIONAL DESCRIPTION: 
Ss 8 1i Write formfeed record to output fiie 
: 198 0 9 13 4 
: 198 40 1! INPUTS: 
: 199 0341 1! 
; 200 0 tg 13 SND_RAB is address of rab 
3 01 0343 1 
; 4 0344 2 BEGIN 
3 0 toe MAP 
3 204 46 SND_RAB : REF $BBLOCK; 
; 205 0347 
: 206 0348 2 SND_RABCRAB$W_RSZ] = 1; 
; 207 0349 SND-RABCRABSL_RBF] = FF_STRING; 
: 209 0351 RETURN WRITE_REC(.SND_RAB) 
; 210 0352 1 END; 
0004 00000 WRITE_FF: 
.WORD Save R2 
52 84 AF 9E 00002 MOVAB FF_STRING, R2 
50 04 AC DO 00006 MOVL §_SND_RAB, RO 
22 AO 01 BO OO00A MOVW #1, ~34(RO) 
28 AO 62 9E 0000E MOVAB FF_STRING, 40(RO) 
50 DD 0001 PUSHL RO™ 
DS soAF 01 FB 00014 CALLS #1, WRITE_REC 
04 00018 RET 


Page 


| 
7 
(4) | 
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| majLSeRtet 
v04-000 


rmrororororerorororny 


MINN ESSE Pw MMM 3 
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WMAMIMVIVIVT “ WWAWINIWWWnonorornononor) 
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QUEUE MAIL MESSAGE FOR PRINTING 


AAO WMMMNUIVIWT 


PAA AOSO 
AO OONAUE WN (OOD NAY EWN OOONOAUEWW 


2 
1$-sep-19 4 h 13318 X=11 
2:2 SKSVMSMASTE 


14-Sep-1984 12:4 
GLOBAL ROUTINE MAILSEXTRACT_MESSAGE (HEADER FLAG, SND RAB) = 
FUNCTIONAL DESCRIPTION: 


VA 
DI 


Extract the current msg to the output file 
; INPUTS: 
i 


HEADER FLAG = 1 to include msg header, 0 if not 
‘ SND_RAB is address of output rab 


BEGIN 


pP 

SND_RAB : REF $BBLOCK; 
LOCAL 

MORE_FLAG 

DESC”: VECTORC2,LONG); 


IF .MAILSGL_FLAGSCMAIF_V_ISAM] 
THEN BEGI 
MAILSREWIND_I MSG(); 
IF NOT .HEADER_FLAG 
= MMB_C_TEXT; 


THEN MAILS$B_MSGTRAN 
WHILE MAILSGET_T_MSG(DESC MORE _FLAG) 


SND_RABCRABS$W_RSZ] = DESCEO?: 

SND _RABCRABSL_RBFJ = .DESCL1); 

IF _LERR(WRITE_REC(.SND_RAB) 
RETURN .STATUS); 


AINA SE BSF BANE AWE & BH BE AWWIWIAIPINIPINPONPINININPOS 2 SS 


END; 
END 
ELSE BEGIN 
MAILSREWIND_MSG(); 
IF NOT .HEADER_FLAG 
THEN INCRU'I FROM 0 TO (IF MAILSTEST_SUBJ() THEN 3 ELSE 2) 
dO NOT MAILSGET_MSG() THEN EXTTLOOP; 
DO BEGIN 
SND _RABERABSU_RST] = ,MAILSW_MSG_RSIZ; 
SND" RABCRABSL-RBF) = .MAILSL_MSG_RADR; 
IF_ERR(WRITE_REC(.SND_RAB);, 
aa RETURN .STATUS); 
WHILE MAILSGET_MSG(); 
RETURN TRUE 
END; 
OOFC 00000 


57 000000006 00 9€ 00002 MOVAB MAILSGET_MSG, R7 


Bliss-32 v4 


R: CMAIL.SRCIPRINT.B32;1 oo sp 


| 
-ENTRY MAILSEXTRACT_MESSAGE, Save R2,R3,R4,R5,R6,- ; 0353 | 


QUEUE MAIL MESSAGE FOR PRINTING 


mr 
coro 


; Routine Size: 


8 
04 


be 
000000006 


FP PViorurowuioo Fr YS FOr 


wor 


OMO OOMMOMIMMUMIOOOMOOOn 


OW108M10 F OO MNVMOOMOOOMOWUO 
OOO" NOON OOOWNWWO 


SCODES + 0090 


OOOCCOCOCCOOOCOCOCOSOOOOOOOOOOCOOOO 


OomMMAMNO OD -VCIOM R909 - OM AMNOMNOVOAIMOVCOM"MoICnoO 
FOOD ODO OO "809 $$ ££ O00 OD F£OWOI OOO "VTOOWOOCOrroem 


SOoooooooooooooo 


—_ 
wn 


2$: 


5$: 


6$: 
7$: 


~Oco 
Sah ad 


On 


DE 
E 
oh RA 
T 


VAX=11 Blis 
DISKSVMSMAS 


WRITE_REC, R6 
s p 
HEADER RaFLaG, R2 
SND_R 
Rass RG 
CS$GL’FLAGS, 2$ 
, MAICSREWIND_ 1_MSG 
; MAILSB_MSGTRAN 


sc 
RAILSGET_ 1_MSG 


WRITE _REC 


STATUS, 1$ 
MAILSREWIND_MSG 
MAILSTEST_SUBJ 
3$ 


R2 
R2 


MAILSGET_MSG 
7$ 


R2 


MAIL$W_MSG_RSIZ, ni 
MAILSL"MSG_RADR, 4 


SND. 

Sth U 
#0, MASLSGET_MSG 
ne 


R 
“WRITE _REC 


RO 


-0-742 
STER: CMAIL.SRCIPRINT.B32; "te 


o> 


2 
MAILSPRINT QUEUE MAIL MESSAGE FOR PRINTING 1h-s6 -1984 01:14:1 VAX-11 Bliss-32 V4.0-742 Page 10. 
v04-000 1228 08-138e 05:13:38 DISKSVMSMASTER: CMAIL.SRCIPRINT.B32;1 . (6) | 
; 63 0408 1 ROUTINE EXTRACT_ALL_ISAM(HEADER_FLAG,SND_RAB) = 
: 6 405 1 !+4+4 
3 rt: tbe : } FUNCTIONAL DESCRIPTION: 
: 66 406 1! Extract all messages from the current folder/seq. file to the output 
: Ser O40? 1 i file. . . a 
: 268 0408 1! 
H 69 0409 1 ! INPUTS: 
; $0 ba14 i HEADER_FLAG = 1 if all 0 if l | 
; ! = all msgs, current msg on 
3 sf¢ Role 1! SND_RAB is address of output file rab . : 
 : 8 1! 
: 274 414 1 !-- 
3; 275 0415 BEGIN 
: 276 0416 
3 sit 0417 LOCAL 
: 278 0418 STATUS; 
3 ey 0419 
: 280 0420 BUILTIN 
3 28) 0421 AP, 
; 282 Bes§ é CALLG; 
3 2€63 042 
3 6284 0424 MAILSL_MSG_NUM = 0; 
3 285 Ques WHILE MAILSFIND_I_MSG(0) 
: 286 0426 DO BEGIN 
3; 287 0427 ; IF .MAILSL_MSG_NUM NEQ 1 
; 288 0428 THEN WRITE-FF(.SND RAB); 
; 289 0429 4 IF NOT (STATUS = CALLGT.AP ,MAILSEXTRACT_MESSAGE) ) 
s 290 0430 3 THEN RETURN .STATUS; 
: 291 0431 2 END; 
; 292 0432 2 RETURN TRUE 
: 293 0433 1 END; 


000C 00000 EXTRACT_ALL_ISAM: 
WORD 


5 Save R2,R3 : 0402 
53 000000006 09 9E 9000 MOVAB MAILSL_MSG_NUM, R3 ; 
63 D4 0000 CLRL MAILSL“MSG"NUM + 0424 
7E 04 00008 1$: CLRL = = (SP) > 0425 
000000006 00 gi FB 000D CALLS #1, MAILSFIND_I_MSG ; 
1C 9 E 0014 BLBC : 
01 63 D1 00017 CMPL  MAILSL_MSG_NUM, #1 3 0427 | 
08 13 1A BEQL $ $ 
08 AC dd 000IC PUSHL D_RAB + 0428 
FFIC CF 01 FB OOO1F CALLS #1, WRITE_FF : 
FF30 cr FA 4 2$ CALLG (AP), MAICSEXTRACT_MESSAGE + 0429 
2 t 9 HOVE RO, §TATUS ; 
85 b O02F MOVL STATUS, RO > 0430 
50 01 00 09 § 3s ROVL #1. RO : 04 
Be RET : ; Wei 
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; Routine Size: 55 bytes, Routine Base: S$CODE$S + 0137 
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MAILSPRINT QUEUE MAIL MESSAGE FOR PRINTING 18-sp-19 4 01:14:1 VAX=-11 Bliss-32 V4.0-742 Page 12 

v04-000 14-Sep-1984 93513:38 DISKSVMSMASTER:CMAIL.SRCIPRINT.832;1 ° (7) 
; 395 4 4 i ROUTINE EXTRACT_ALL_SEQ(HEADER_FLAG,SND_RAB) = : 
; 44 oe } : FUNCTIONAL DESCRIPTION: : 
; 44 be : ! Extract all sequential msgs to the output file : 
; 301 440 1 ! INPUTS: 3 
; oe 0441 1! me : 
; pres 1! HEADER FLAG = 1 to include msg headers, 0 ‘f not ; 
; 304 0443 1! SND_RAB is address of output rab ; 
; 305 beee : | : 
; 307 beeg BEGIN | ; 
; 308 044 $ 
; 309 0448 2 BUILTIN ; 
s 310 0449 AP, : 
g St 0450 CALLG; 3 
3 a1§ 0451 3 
es. Q4d¢ g LOCAL ; 
> 314 045 STATUS; | : 
s. 3S 0454 MAILSL_MSG_NUM = 0; : 
; 316 0455 2 WHILE MAILSFIND_MSG(O) : 
: HEA 0456 DO BEGIN : 
; 18 0457 IF .MAILSL_MSG_NUM NEQ 1 ’ 
; 319 0458 THEN WRITE-FF(.SND_RAB); : 
; 320 0459 4 IF NOT (STATUS = CALLGT.AP,MAILSEXTRACT_MESSAGE) ) : 
; 321 0460 3 THEN RETURN .STATUS; : 
: 356 0461 § END; ; 
; 32 046 RETURN TRUE : 
; 324 0463 1 END; : 
O000C 00000 EXTRACT_ALL_SEQ: : 
-WORD Save R2,R3 : 0434 3 
53 000000006 00 9E 00002 MOVAB MAILSL_MSG_NUM, R3 3 : 
63 D4 00009 CLRL MAILS$L"MSG"NUM : 0454 ; 
7E 04 00008 1$: CLRL - : 0455 : 
000000006 00 01 FB 0000D CALLS #1, MAILSFIND_MSG 3 : 
1C 20 E9 00014 BLBC R : : 
01 63 D1 00017 CMPL  MAILSL_MSG_NUM, #1 : 0457 ; 
08 13 peta BEQL 2s 3 : 
08 AC ODD 1C PUSHL SND_RAB : 0458 : 
FEES CF 01 FB 3 CALLS #1, WRITE_FF : ; 
FEF9 =F ef FA 00024 2$: CALLG (AP MAICSEXTRACT_MESSAGE ; 0459 : 
52 0 D 00 9 MOVL RO, STATUS ; ; 
dC 23 E 02c BLBS 3 : 
50 2 0 000 : MOVL STATUS, RO ; 0460 ; 
50 01 00 00033 38: MOVL #1, RO : 046 ; 
02 000 RET ; 046 : 
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vuvuvvU 


MAIL MESSAGE FOR PRINTING 


= ROUTINE MAILSCMD_EXTRACT = 
FUNCTIONAL DESCRIPTION: 


i Handle the EXTRACT command, to extract a message out to a separate 


‘ sequential file 


~ XABPRO 
D-DESC_: VECTOR 
sae STATUS, 


D FLAG : BYTE 
ABPERD FLAG : evt 
MAIL_FCAG : by? 
ALL_FLAG : 


OWN 
DYN_DESC 


YTE, 
‘BYTES 


: DYN_DESC_DECL; 


MAIL-FLAG = CLISPRESENT(SD_MAIL); 
If .MAIL i. 


AND NOT LAG 
THEN RETURN ASTGNAL (MAILS. CONFQUAL); 


IF ERR(CLISGET_VALUE(SD_EXTF ,DYN_DESC);, 
RETURN” .STATUS); 


o NOT .ALL_FLAG 
THEN BEGIN ~ 
IF vy -MAILSGL dirtitg | V_ISAMJ 
THEN .MAILSC_C 25 


ELSE (NOT sARILSL G_STS AND -MAILSL _MSG_STS NEQ 0)) 
THEN RETURN 1 aMRILst st ROTREADIN); 


END 

ELSE BEGIN 

IF (IF .MAILSGL_FLAGSCMAIF_V_ISAM) 
THEN .MAILSC_NM * 
ELSE *RAILSL™ MSGBUF $ I 


Z EQL 0) 
—— RETURN SIGNAL (MAIL OhOMSGS) ; 


SFAB_INIT(FAB=SND FAB 
FN N_DESCEDSC$W_LENGTH] 
FMA; DYN “DESCCDSCSA_POINTERS, 
DNM=! Txt 
FAC=(PU 


1 

1 

1 

1 

1 

1 

1 

BEGIN 

LOCAL 

SND_FAB : $FAB_DECL, 
SND-RAB : $RAB-DECL, 
SND"NAM : SNAM DECL 
SNDIRSS $88, OcK CNAMS¢ MAXRSS), 
TORE 

4 

4 

4 

4 

4 

Fe TRN) 
CTKEMAILS OPEnouT. 


0-742 Page 
L.SRC 


13 
JPRINT.B32;1 (8) 


2 
MAILSPRINT QUEUE MAIL MESSAGE FOR PRINTING Ly Sep-1984 VAX-11 Bliss-32 V4.0-742 e 14 
v04-000 14-Sep 13 4 9] 3:38 DISKSVMSMASTER: CMAIL.SRCIJPRINT.B32; 1 fees (8) 
83 P NAM=SND_NAM, 
84 P RAT=CR,~ 
8S RFM=VAR) ; 
BS P SKABPRO_INIT (KABSSND_XABPRO, 
i pg 
90 IF .MAIL_FLAG 
91 THEN peor 
9 FLAG = 1; 
9 eOEFDIABESCLOSCSW LENGTH] EQL 0 
94, THEN STRSCONCAT (DEFDIRDESC ,MAIL$Q_USERDEF ,SDESCRIPTOR('.MAI')); 
95 _FABCFABSB_DNS] = -DEFDIRDESCEDSCSR_LENGTH]; 
396 SND -FAB FABSL =DNA = .DEFDIRDESCLDSCSA_POINTERI; 
397 SND ~FABCFABSL— = §ND_XABPRO; 
398 SND” ~XABPRO XhBeue _PRO] = SND_PRO: 
400 
401 P SNAM_INIT(NAM=SND_NAM, 
402 P ESA=SND_RSS, 
403 P ESS=NAMSC_MAXRSS, 
404 Pp RSh= ND_RSS, 
405 NAMSC_MAXRSS) ; 
406 SND pestis = SND-RSS; 
408 IF .APPEND_FLAG 
409 THEN SRD_FABLFABSV_CIF) = TRUE; 


CREATE ee SCREATE (FAB=SND_FAB,ERR=UTILSREPORT_IO_ERROR) ; 
THEN RETURN - CREATE_STATUS; 


citer gi Setraase.. ORG] NEQ FABSC_SEQ 


CFABSL_STS] = RMS$_IOP; 
pastes 16_ ERROR (SND_ FAB); 
SCLOSE (FAB=SND FAB); 
Ag RMS$_ NOP 


$RAB_ sae) Ser ry RAB, 
Hal OPENOUT, 
FAB=SND FAB); 


IF .APPEND_FLAG 
THEN SND_RABCRABSV_EOF] = TRUE; 


DPDPEDPDPPAEDP DAD Ar BB BEE AAI III nononononornororeny 


DODWNANE WD $$ O OD NAUE WN 9 OD NOA UE WIN 0 OONOU EWN 0 OONOU SW 


AAAI POPONPONINONYIPYUDD 9 9 OO OO Oe 


P IF ERR(SCONNECT (RAB=SND_RAB,ERR=UTILSREPORT_IO_ERROR);, 
Pp IF NOT "gw otf 

P THEN SND_FAB pies. DLT) = 1; 

P SCLOSELFABTSAD.F 


RETURN STATUST: 


SND _RABCRABSL_CTX) = MAIL$_WRITEERR; 
CHSMOVE (DSC$C"S_BLN, “UTILSGETFILENAME (SND_FAB) ,SND_DESC); 


IF CIF .APPEND_FLAG 


CY fee ee wee we we wwe ew ne ne nw ew ele ole fololo la lololelololololololololololololololelelolololololo) 
NNN NOOO 


FR eee ee eee ee reese al ah ah ah Ab Ab ah Ah ah eh eh eh dh ah eh ah ah ad ah ah ad ad ad a) a a a a) 


Be Oe Be Be Be Be Se Se Se Se Se Se Se Se Se Ge Be Se Se Se Se Se Se Ge Fe Ge Ge Se Bs Se Be Ge Se Ge Se Ge Se Se SF Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Seas 


fr 
; 
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<=z 


2 
MAILSPRINT QUEUE MAIL MESSAGE FOR PRINTING 1b-sep-19 4 01:14:12 VAX=11 Bliss-32 V4.0-742 
v04-000 14-Sep-1984 12:42:2 DISKSVMSMASTER: CMAIL.SRCJPRINT.B32;1 
; 440 578 4 THEN (.CREATE_STATUS EQL RMS$_ CREATED) 
: 461 57 ELSE NOT .SND~FABLS$FAB DEV TRA) J) 
: 44 5 THEN IF .MAIL$GL_FLAGSCMAIF V_ITERR 
; 443 3 1 THEN SIGNAL (MAIL$_CREATED>1,SND_DESC); 
: 445 é : IF .APPEND FLA 
: 446 5 4 THEN WRITE_FF(SND_RAB); 
: 4648 $86 IF NOT .ALL_FLAG 
> 449 587 © THEN STATUS-= MAILSEXTRACT_ MESSAGE (.HEAD_FLAG, SND_RAB) 
> 450 0588 2 ELSE _IF .MAILSGL_FLAGSCMAIF_V_ISAM] 
; 4a 0989 THEN STATUS = EXTRACT_ACL~1SAM(.HEAD_FLAG, SND_RAB) 
; 432 9390 ELSE STATUS = EXTRACT-ALL~SEQ(.HEAD_FLAG, SND_RAB); 
: 454 059¢ SND_FABCFABSL_CTX) = MAIL$_CLOSEOUT; 
; 439 0993 SCLOSE (FAB=SND_FAB,ERR=UTICSREPORT_{0_ERROR); 
: 457 0595 2 RETURN .STATUS 
: 458 0596 1 END; 
54 58 54 2E OO1AS P.AAN: . ASCII \.TXT\ 
49 41 4D 2€ 001A9 P.AAP: <ASCII \.MAI\ 
001AD ‘BLKB 3 
00000004 00180 P.AAO: <LONG 4 
00000000" 001B4 -ADDRESS P.AAP 
-PSECT SOWNS,NOEXE,2 
00# 00040 DYN_DESC: 
-BYTE 02) 
02 OE 00042 “BYTE 14, 2 
00044 BLKB 4 
.EXTRN SYSS$CREATE, SYSSCLOSE 
XTRN SYSS$CONNECT 
.PSECT $CODE$,NOWRT,2 
OFFC 00000 ENTRY MAILSCMD_EXTRACT, Save R2,R3,R4,R5,R6,R7,- 
R8,R9,R10,R11 
5B 00000000' 00 9€ 00002 MOVAB DEFDIRDESC, R11 
A FEOF CF 9E 99 9 MOVAB sp ALL, R16 
E FDAC CE 9E MOVAB =-596(SP), SP 
A DD 0001 PUSHL 
000000006 00 1 FB 0001 CALLS #1, CLISPRESENT 
59 0 9 goic MOVB ; ALL_FLAG 
F4 AA OF OOOTF PUSHAB SD_APPERD 
000000006 90 &. 2 CALLS #17 CLISPRESENT 
09 OVB RO, APPEND_FLAG 
1c AA OF 0002C PUSHAB SD _HEADER 
000000006 99 1 F F CALLS #17 CLISPRESENT 
09 6 OVB RO, HEAD_FLAG 
28 «AA OOF PUSHAB SD_MAIL 
000000006 00 1 FB 000 ¢ CALLS #17 CLISPRESENT 
6 0 90 0004 OVB RO, MAIL_FLAG 


Page 
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0464 


0490 
0491 
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0493 
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50 000000006 00 
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QUEUE MAIL MESSAGE FOR PRINTING 
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50 000000006 
2B 


08 
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SOoQgoooococococcooccoooooooooooooooooosoaoooooooooooooooooooooooo 


Ot dd dd td ad md I SOOO OOOO OOOOOOOOCSOO 


@ 
o 


a 2:43 


BLBC 


MOVL 


ies LIS . ~VALUE 


STATUS, 


#0, #1, 
ALC. FLAG 


R 
MAILSL_CURMSG 
9$ 


4% 
MAIL$L_MSG_STS, RO 
RO, 9$ 


9$ 
#8290338 
8$ 


RO, 6$ 
MAILSL_NMSG 


MAILSL_MSGBUF SIZ 

#8290378 

#1, LIBSSIGNAL 

#0, #80, SRMS_PTR 
#20483 as At. 


#0, (SP), 


#17, $RMS 


+22 
ABebt 94, “Bans PTR+24 
ns P TRE30. 


4d. iy e 


OyN are Means. PTR+44 


P.AAN 


DYN, DESE. SAMS PTRES2 

#0, #88, $RMS_PTR 
#22547, Ashes PTR 

RPPEN FLAG 


#4, $RM 
#0; (SP)s 


MAIL SF 
4 cfol 


MA 1{So_usERDEF 


=32 V4.0-742 P 
STER: CMAIL.SRCIPRINT.B32;1 


oe Ne FLAGS, RO 


#00 (SPDs Higgs 998, SRMS_PTR 
#24578, $RMS_PTR 
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2 
MAILSPRINT QUEUE MAIL MESSAGE FOR PRINTING 18-56 -1984 01:14: VAX=-11 Bliss-32 V4.0-742 Page 
y0Lt000 1 ~300n 138% 93:13:38 DISKSVMSMASTER:CMAIL.SRCIJPRINT.B32;1 -” 
FFOE CD 01 BE 0013 MNEGB #1, SRMS_PTR+2 ; 
FFIO «= «CD 60 AE 9E 014 MOVAB  SND_RSS, SRMS_PTR+4 : 
FFI6 = CD 01 BE 0014 MNEGB #1, S$RMS_PTR+ : 
FFI CD 60 AE 9E 0014 MOVAB SNO_RSS, ~S$RMS_PTR+12 : 
04 AE 60 A 1 MOVAB SND“RSS SND _DESC +4 : 
04 5 1 BLBC APPEND FLAG,~12$ : 
B7 AD 08 158 BISB2 #2 SN FAB+ : 
00000006 F OO1SF 12$:  PUSHAB UTILSREPORT_IO_ERROR ; 
BO AD 9F 00165 PUSHAB SND_FAB : 
000000006 90 ; FB 00168 CALLS #2, SYSSCREA : 
6 D 16 VL RO, CREATE STATUS : 
04 6 € 1 ¢ BLBS § CREATE_STATUS, 13$ : 
0 j i 0173 OVE CREATE-STATUS, RO : 
CD OAD 3 0179 13$:  TSTB SND_FAB+29 : 
24 13 0017C¢ BEQL ; 
B8 AD 00018574 &8F DO O017E MOVL #99700, SND_FAB+8 : 
BO AD 9F 00186 PUSHAB SND_ : 
000000006 00 01 FB 00189 CALLS #1, UTILSREPORT_IO_ERROR : 
BO AD 9F 00190 PUSHAB F : 
000000006 00 01 FB 00193 CALLS #1 SYSSCLOSE : 
50 00018574 8F b0 aDIat MOVL #99700, RO ; 
0044 8F 00 6E ‘nas 00 $e O1Ag 14$: MOVCS #0, (SP), #0, #68, SRMS_PTR : 
FF6C CD 4401 8F B80 Gotat MOVW #17409, $RMS_PTR : 
84 AD OO7E10A2 8F DO 001B MOVL #8261794, $RAS_PTR+24 : 
AB AD BO AD 3 00188 MOVAB AB, $RMS_PTR+60 F 
05 57 0100 LBC. APPEND FLAG, T5$ ; 
FF71 CD 01 88 001C3 BISB2 ; : 
000000006 00 3F 001¢8 15$: PUSHAB UTILSREPORT_10_ERROR 
000000006 00 62 FB ith CALLS #2, SYSSCONNECT : 
3 50 DO 00109 MOVL * STATUS ; 
1 3g ES 0010¢ BLBS STATUS, 17$ : 
05 5 E 001DF BLBS APPEND FLAG, 16$ : 
B5 AD 80 BF 88 Ole BISB2 #128, SND_FAB+S F 
BO AD 9F QO1E7 16$:  PUSHAB SND_FAB ; 
000000006 00 0084 fe QiEA CALLS #1, SYSSCLOSE 
84 AD 007E10D2 8F D0 001F4 178:  MOVL #8261842, SND_RAB+24 F 
BO AD 9F Our PUSHAB SND_ ; 
000000006 00 1 FB OO1FF CALLS #1, UTILSGETE ILENAME : 
E 0 : 2 06 MOVC3 #8. (RO), SND : 
B E A BLBC APPEND_FLAG, ; 
00010619  8F 8 D| 0D CMPL CREATE_STATUS, #67097 ; 
2 if 16 Be, 98 
19 FO AD EO 00218 18$: BBS #2, SND_FAB+64, 20$ : 
11 000000006 00 ; a i 19$: BBC i: MAICSGL_FLAGS, 20$ 
1 DD PUSHL #1 ; 
oooooo00c 9 OVENO"S «BE PB Biss? ST Meet : 
09 9 20$:  BLBC APPEND FLAG, 51s ; 
FF6C cD F PUSHAB SND_RAB 
FC7D =sCF 1 FB D CALLS #1, WRITE_FF ; 


mM 2 
MAILSPRINT QUEUE MAIL MESSAGE FOR PRINTING 16-Sep-1984 01:14: VAX-11 Bliss-32 V4.0-742 Page 18 M 
v04-000 ea eeen tee Pasig WN mGAASPERSCHAIL cReoPRINT.032;1°°%* «aS V 

OE 59 £8 42 21$:  BLBS  ALL_FLAG, 228 : 0587 

FF6C F 0024 PUSHAB SND~RA : 

7 A 00249 MOVZBL HEAD FLAG (SP) ; 

FCB? CF FB A CALLS #2, MAILSEXTRACT_MESSAGE : 
OE 000000006 00 £9 0 22$:  BLBC  MAILSGL_FLAGS, 238 + 0588 
FF6C cb F A PUSHAB SN + 0589 

7E 8 9A 0025E MOVZBL HEAD FLAG, =(SP) : 

FD19 CF G2 iB 6 61 CALLS #2, EXTRACT_ALL_ISAM : 

¢ 11 66 RB 24$ : 
FF6C CD OF 00268 238 PUSHAB SND_RAB + 0590 

7E ; 9A 0 6C MOVZBL HEAD FLAG, =(SP) ; 

FD42. =F FB of CALLS #2, EXTRACT_ALL_SEQ : 

52 50 DO 00274 24%: MOVL RO. ST : 
C8 AD 007E105A er DO 00277 MOVL #8261722, SND_FAB+24 + 059 
000000006 00 9F O027F PUSHAB UTILSREPORT_IO_ERROR : 059 

BO AD 9F 00285 PUSHAB SND_FAB : 

000000006 90 02 FB 00288 CALLS #2, SYSSCLOSE : 
0 DO O028F 25$:  MOVL STATUS, RO + 0595 
04 00292 RET + 0596 


; Routine Size: 659 bytes, Routine Base: S$CODE$ + 0188 
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MAILSPRINT QUEUE MAIL MESSAGE FOR PRINTING “Sep-1984 VAX#11 Bliss-32 V4.0-74 p 9 
yoLtoos en eenT8be PbS ts PN thd ete hie eRe apeinr.ase;1° 2% 3 | 


; 460 597 1 ROUTINE CANCEL_GETQUI : NOVALUE = 
: 461 98 2 BEGIN 

: 46 59 e+ 

>; 46 280 ! This routine cancels any GETQUI in progress. Called if an image exit done 

> 464 601 | while getqui request outstanding 

; 465 one ! | 
: 466 060 leo 

: 467 0604 
; 468 0605 2 $GETQUIW(FUNC=QUI$_CANCEL_OPERATION) ; 

; 469 0606 RETURN; 

: 470 0607 1 END; 


sEXTRN SYSS$GETQUIW 
0000 00000 CANCEL_GETQUI: 


«WORD Save nothing 3; 0597 
7E 7C 00002 CLRQ -(SP) ; 0605 

7E 7C 00004 CLRQ (SP) ; 

7E 01 7D 00006 MOVQ #1, =(SP) : 

7E D4 00009 CLRL - 3 

00000000G 00 07 FB 00008 CALLS #7, SYS$GETQUIW ; 
04 00012 RET ; 0607 


; Routine Size: 19 bytes, Routine Base: $CODE$ + 0448 


QUEUE MAIL MESSAGE FOR PRINTING Bese ~3007 138? 1:14:1 ‘ 
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14-Sep-19 2:42:2 D 


poyy ine GET_FLAG_TRAILER (FLAG_ITEM,TRAILER_ITEM) : NOVALUE = 


e¢ 
i This routine does a $GETQUIW on the current queue Cin CURQUE_DESC) 
and returns the correct flag and trailer options to use in create job. 


IMPLICIT INPUTS: 

i curque_desc = descriptor of queue 

OUTPUTS: 

! FLAG =iTEn contains the sjc$_ code for flg page, TRAILER_ITEM 


contains code for trailer page. 


CAL 
GETQLST : SITML ST DEC LITERS: 3), 
QUEUE FLAGS $BBCOCKC8) VOLATILE, 
I vee roRCA’ Bonbace 
SEARCH_FLAGS, 
STATUS 


-FLAG_ITEM = SJC$_FILE_FLAG ONE : 
4 AICER ITEM = anys -NO_FILE_T 
SEARCH_FCAGS = SA SEARCH =RILDCARD’ OR QUISM_SEARCH_SYMBIONT; 
SiImcsT. INIT ITAL ST=GETaL 
(ITMCOD=QUI$_ SEAR 


: 

2 

5 

2 

: 

2 BUFABR EARCH nA "DESCCDSCSA POINTER], 
é BUFSI 
2 

5 

2 

2 

5 

5 

2 


4 


UF ze . CURQUE “DeSCED SC$W_LENGTH)), 

(ITMCOD=QUI$_ SEARCH _F 
bur 5 6 aie LAGS, 

(LTMcoD=0U18_ TduEUE FLAGS ,BUF ADR=QUEUE_FLAGS)); 


TQUIW(FUNC=QUI$_ CANCEL OPERATION); 

LEXH(DESBLK=GETOUIEXI TBL 

ATUS = $GETQUIW(FUNC= duis oO TSPLAY _QUEUE, 
{oSbs10 GETQLST, 


QUIW(FUNC=QUI$. CANCEL_OPERATION); 
ANE XH (DESBLK=GETQUIEXITBLOCK); 
STATUS 

THEN STATUS = .10SB([0); 


IF NOT .STATUS 
THEN RETURN; 


IF NOT (, QUEUE Ue FaGs(au ae ed 


U yTsy_0 
THEN .FLAG_ITEM ort 
IF (, QuEvE TFLAGSLOUISV auEDE FIL 
. QUEUE _FLAG Agsto 1$9_Qu 
THEN RRA AILER ITEM JCS"FI 
URN: 


AG_ONE)) 


RAILER_ONE)) 
NE; 


3 
MAILSPRINT QUEUE MAIL MESSAGE FOR PRINTING 15-Sep-1984 41:16 32 V4.0-742 
v04-000 14-Sep-19 42:2 R 


liss- -0- Page a 
MASTER: CMAIL.SRCIPRINT.B32;1 (10) 


.EXTRN SYSSDCLEXH, SYSSCANEXH 
001C 00000 GET_FLAG_TRAILER: 
“WORD 


Save R2,R3,R4 3; 0608 
54 900000006 0 9E 0000 MOVAB SYSS$GETOQUIW, R4 : 
3 00000000' 9 00 MOVAB GETQUIEXITBLOCK, R3 ; 
SE C2 0001 SUBL2 # g. SP : 
046 BC DO 0001 MOVL #37, @FLAG_ITEM + 0630 
08 BC D DO 0001 MOVL #45, aTRAICER_ITEM + 0631 
A DD 00018 PUSHL #10 : 0632 
50 14 AF 3 9910 MOVAB GETOQLST, $$IT LKPTR + 0640 
80 E46 OA é 021 MOV CURQUE bESC, ($$ITMBLKPTR)+ : 
80 4D BF 9B 900 5 MOVZBW #77, (SSITMALKPTR)+ : 
80 E8 A3 DO 00029 MOVL  CURQUE DESC+4, ($$ITMBLKPTR)+ : 
g0 D4 0002D CLRL SPS1 TOP. KP TR? : 
80 004C0004 8F DO 0002F MOVL #4980740, (S$$ITMBLKPTR)+ : 
80 6E 9E 00 6 MOVAB SEARCH_FLAGS, ($$ITMBLKPTR)+ : 
80 D4 00039 CLRL (SSITMBLKPTR} : 
80 00450004 8F DO 0003B MOVL #4521988, (S$ITMBLKPTR)+ ; | 
80 OC AE 9E 00042 MOVAB QUEUE FLAGS, ($$1TMBLKPTR)*+ : 
80 7C 90046 CLRQ ($$ITABLKPTR)+ : | 
7E 7C 0004 CLRQ = = (SP) > 0642) 
7E 7C OO04A CLRQ = = (SP) : 
7E 01 70 0004C MOVQ ss #1,_=(SP) : 
7E D4 0004 CLRL_ = SP) : | 
64 9 FB 00051 CALLS #7, SYSS$GETQUIW ; | 
3 pd 00054 PUSHL R : 0643) 
000000006 00 gi FB 90056 CALLS #1. SYSSDCLEXH pe 
OC AE 9F 0005F PUSHAB 105 ; 
20 AE OF 00062 PUSHAB GETOLST ; 
7E 06 7D 0006 MOVQ #6, =(SP) : 
re D4 00068 CLRL=C§ ; 
64 07 FB O006A CALLS #7, SYSS$GETQUIW ; 
52 50 DO 0006D MOVL RO. STATUS ; 
7E 7C 00070 CLRO 20s = ( §P) > 0647 
7E 7C 00072 CLRQ =(SP) : 
7E Qi 7D 00074 MOVQ #1, =(SP) ; 
E D4 00077 CLRL oe ; 
64 g FB 00079 CALLS #7, SYS$GETQUIW ; 
3 pd o007c PUSHL + 0648 | 
000000006 00 gi FB a045 CALLS #1, SYSSCANEXH Po 
$$ 04 A 5? $6 MOVZ2WL 10SB8, STATUS : 0650 
18 52 E9 0008C LBC —- STATUS ; 065¢ 
09 OC AE EO O008F BBS #5, QUEUE_FLAGS, 1$ ; 065 
04 OC AE 6 £0 094 BBS #6. QUEUE“FLAGS. 1$ : 0656 
04 BC 6 bo 99 MOVL #38, aFLAG_ITEM : 0657 
0c AE 93 909 1$ ISB QUEUE_FLAGS > 0658 
04 OD AE €9 OoA2 BLBC QUEUE FLAGS+1, 3$ > 0659 
08 BC 2C DO 000A ef: MOVL #44, GTRAILER_ITEM ; 0660 
4 OOOAA 3S: RET : 0662 


; Routine Size: 171 bytes, Routine Base: S$CODE$ + 045E 


y = TePererererer er ere ee te i ee Se eee Sere ee eer ere ere ere err errr ere eT eT ererer er erate Sire ter es 


2 
| 


Pp 
JPRINT.B32:1 9 (16 


Yo 
z 
— 
_— 
z 
-_ 
ae 
a 
a 
oO 
= 
ee) 
oOo 
oh 
” 
” 
w 
= 
=) 
— 
< 
= 
kad 
2 
ka 
2 
os 


MAILSPRINT 
04000 


3 
MAILSPRINT QUEUE MAIL MESSAGE FOR PRINTING 16-Sep-19 a 933133] 
v04-000 


V iss V4.0-74 
14-Sep-1984 12:42:2 Dd 


X=-11 Bliss-32 V4.0-742 Page 23 
SKSVMSMASTER: CMAIL.SRCIJPRINT.B32;1 (11). 


<z 


A 
I 


; ; ; 8663 ! GLOBAL ROUTINE MAILSPRINT(QUEUE,COPIES,PRQ_FLAGS) : NOVALUE = ; 
3 2 , dees : FUNCTIONAL DESCRIPTION: | ; 
; 3 § 0667 1! This routine is called to queue a copy of the current message : 
: 23 0668 1! for printing. The first time it is called, a jo s ; 
; 534 0669 1! created and the message is copied to a file that is added to the : 
3 23 0670 1! job. Each time it is called, and the queue name is the same as : 
; 536 0671 1 | the last time, the current file will be added to the open job. | ; 
s SSr pore 1! If this routin is called with a different queue name, the previous | : 
; 238 per? ; ob is closed, releasing it for printing, and a new job is opened. | ; 
$ 226 0675 1! If no queue name is specified, the queue specified in the previous : 
> 541 0676 1! call is assumed. If no queue name is specified the first call, ‘ 
F 2e§ pore : SYSSPRINT is assumed. | : 
> 544 0679 1! An exit handler is declared on the first call to close the open : 
; et? pose : job should this routine never be called with a different queue name. : 
: 547 0682 1 ! INPUTS: : 
; 548 0683 1! : 
; 549 0684 1! QUEVE = Address of specified queve name descriptor. ; 
> 350 0685 1! COPIES = Number of copies, default is 1 : 
3 DoT 0686 1! : 
s Soe 0687 1 ! OUTPUTS: 3 
> S535 0688 1 ! : 
; 554 0689 1! Temporary file created, message copied to it, print job created | ; 
gs 335 0690 1! for specified queue, and temporary file added to job. | : 
; 556 0691 1 !-- ; 
3 957 069 § BEGIN F 
; Doe 069 Pp ; 
3 539 0694 2 QUEUE: REF BLOCKC,BYTE), ' Queue name descriptor : 
; 560 0695 2 PRQ_FLAGS: BLOCKC BYTE); : 
: 561 0696 : LOCAL | 

: 562 0697 STATUS, ! Routine status 

; 563 0698 2 PTR 

: 564 0699 2 FLAG_ITEM 

; 565 0700 2 TRAICER_ITEM, 

; 566 0701 CREJOBLIST SITMLST_DECL(ITEMS=5), 

3 367 44 ADDF ILELIST fla i eT hes at LB | 

; 568 070 ALTJOBLIST SITMLST nis Nita ), 

; 569 0704 JBCIOSB: YECTORE? -LONG 

: 570 0705 RECDESC: $BBLUCKCOSC$C_§_BLNI, 

s STi 8708 MOREFLAG, 

3 276 07 P_FAB: $FAB_DECL, ' Temp file FAB 

; 0708 TMP_RAB: $RAB_DECL, ' Temp file R 

; 574 BrP TMP_NAM: CL ' Temp file NAM block 

; 575 710 TMP~ESNAM: BLOCRCNAMSC_MAXRSS BYTE) i Temp file name buffer 

: 576 oi BUFF : BLOCKCMAILSR_INBUFFSZ,8YfE); | Temp file 1/0 buffer | 

3 578 O78 IF .FILES QUEUVED Nee 0 

: 579 714 AND .PRQ_FLAGSCPRQ_V_NOTIFY) 

; 580 715 THEN BEGIN 

; 581 P rg SITMLST_INITCITMLST=ALTJOBLIST, 

; 286 P 071 (ITACOD=SJC$_QUEUE 

; te Pp tat BUF STZ=.CURQUE_DESCEDSCS¥_LENGTH] 

; 584 P 071 BUF ADR=. CURQUE ~DESCCDSCSA~POINTERI), 


an 
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F 3 
MAILSPRINT QUEUE MAIL MESSAGE FOR PRINTING 16-Sep-1984 01:14:1 VAX-11 Bliss- 
v04~000 betes Pk Pe Met tS TS 
; 585 P 0720 (I1TMCOD= sJ6$ perey puege 
3; Se P 0721 UFA 1 a 
3 4 P 07 ¢ (ITMCOD=SJC$ NOTIFY 
s 8 P 07 
: 589 0724 BUFADR=05); 
: $90 P 0725 STATUS = SnDJBECFUNCES CS ALTER_JOB, 
; 23) P 07 § ITMLST=ALTJOBLIST, 
$ 8g 07 10SB= yBCIOSB) ¢ 
; 59 0728 IF NOT .STATUS 
; 594 0729 4 OR NOT (STATUS = .JBC10SB(0]) 
3 237 OF 9 ie THEN SIGNAL (MAIL$_ALTPRIJOB,2,.CURJOBID,CURQUE_DESC,.STATUS); 
: §97 732 s 
3 rh 8? 5 If FORCE is specified, simply call close_job and return 
; 600 0735 IF .PRQ_FLAGSCPRQ_V_FORCE) 
; 601 0736 THEN IF .FILES GUEVED EQL 0 
; O08 0737 THEN RETURN SHGNAL (MALLS. NOMSGPRI) 
; ret Oras : ELSE RETURN CLOSE_JOB() 
; 605 0740 ; ay there is no job currently open or if a queue name is specified, and 
; 606 0741 ! it isn't the same as the current job's close the open job, and open 
; 607 toes ! a new print job. 
; 608 074 ! 
; 609 0744 if . CURQUE_DESCCDSC$W_LENGTH] EQL 0 
: 610 0745 OR (.QUEVETDSC$W_LENGTH) NEQ 
: 611 0746 AND eS - QUEVELDSCSu LENGTH], .QUEVECDSC$A_POI wierd, 
: 612 0747 . CURQUE_DESCCDSC$Q_LENGTHI, .CURQUE _DESCLDSCSA_POINTER],9)) 
: 613 0748 THEN 
; 614 0749 3 CLOSE _JOB(); ! Close any open job 
: oF Bree ? STRECOPY DXi CURQUE_DESC. (IF sas mee or LENGTH] NEQ 0 
3; 617 8236 ; ELSE ee SYSSPRINT'))); 
; 618 075 GET FLAG _TRAILER(FLAG_ITEM, TRAILER_ITEM) 
; 619 P 0754 3 SITALST INITCITMLST= CREJOBL IS T 
: 620 P 0755 3 ITMCOD=SJCS$_ENTRY UMBER OUTPUT ,BUF ADR=CURJOBID) 
: 621 P 0756 (I TMCOD=SJC$~ QUEUE “BUF Siz. URQUE_D ESCCDSC$W_LENGTH), 
; 622 P 0757 BUFADR=.C CURQUE DESCLDSCSA~ PO INTERD) 
: 623 P 0758 citmcop= iF -PRQ_F GSTPRO_V NOTIFY 
: 624 P 0759 THEN SJ hot FY 
3 os? P 0760 ELSE sucs_ -NO_NOTIFY), 
: 626 P 0761 
3 Ge” P B76 BUSI i= ‘ 
; 628 P o50 (ITMCOD=.FLAG_ITEM,BUFADR=0,B rai Z=0), 
; 6 3 0764 (ITMCOD=. TRAICER_1fEM, BUF ADR=0,BUFSIZ=0)); 
3; 631 P 076 STATUS = SSNDJBCWCFUNC=SJC$_CRE 
; 63¢ P 076 ITMCST= eCRETOBC IST, 
: 63 0768 10SB=JBCIOSB); 
: 634 0769 IF NOT .STATUS 
; 635 bro 4 T (STATUS = .JBCIOSBL0)) 
; 636 771 & THEN BEGIN 
3; 637 14a 4 SIGNAL (MAIL$_CREPRIJO , CURQUE DESC,. - STATUS); 
: 638 O77 4 RETURN STRSFREE1_DX( CoRaUE _DESCY; No current queue 
; 63 774 END; 
; 640 0775 END; 
3; «6641 0776 ! 
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QUEUE MAIL MESSAGE FOR PRINTING 


Create a temporary file 


$F AB_INIT( FAB = TMP_FAB, 
FNA = -LISTEILE_DESCEDSC$A POINTER], 
FNS = .LISTFILE-DESCCDSCS$W-LENGTHJ, 
CTX = MAIL$ OPENOUT, 
FOP = (TMP,SQ0), ' 
NAM = TMP_NAM, i 
RAT = CR)? i 
SRAB_INIT( RAB = TMP_RAB, i 
FAB = TMP-FAB i 
CTX = MAIC$_OPENOUT, 
UBF = BUFF ' 
USZ = MAIL$K_INBUFFSZ); i 
SNAM_INIT( NAM = TMP_ i 
RSA = TMP~ESNAM 
RSS = NAMSC_MAXRSS, 
ESA = TMP_ESNAM ' 
ESS = NAMSC_MAXRSS); i 
STATUS = SCREATE (FAB = TMP_FAB,ERR=UTILSREPORT_IO_ERROR); 


THEN RETURN .STATUS; 
Copy the message to the file 


iF ~ERR(SCONNECT (RAB = TMP_RAB,ERR=UTILSREPORT_I0_ERROR);, 
TMP_FABLFABSV DLT a TRUE; 


RETURN .STATUS 
TMP_RABCRABSL_CTX) = Us WRITEERR;: 


F NOT .PRQ_FLAGSCPRQ_V_ALL 
STATUS” = RATLSEXTRACT RESSAGECI, TMP_RAB) 


ELSE Then -MAILSGL_FLAGSCMAIF _V 


N STATUS = EXTRACT TALL Team TMP_RAB) 
else STATUS = EXTRACT—ALL~SEQ(1, TMP_RAB) ; 


IF NOT .STATUS 
THEN 


BEGIN 
TMP sacra DLT] = 1; 
RETORN 


TMP FABLE ABSL sound 
IF _ERR( 


SCLOSE(FAB = TMP_FAB); 


MAIL$_ CLOSEOUT; 
ee Ag = TMP_FAB,ERR= UTILSREPORT_ IO_ERROR);, ! 
i Add the file to the print job 


PTR = CHSMOVE (NAMSS_DVI,TMP_NAMCNAMST_ 

PTR = CHSMOVE (NAMSS = FID. TMP~NAMCNAMSW~ 

CHSMOVE (NAMS$S_ DID C , 
SITMLST_ INET OTTALST=A ADDF ILELI 

“(ITMCOD=SJC$_FILE 

3 


BUF ADR=BU 
(1TMCOD=SJC$_DELETE ite, 


+ < 
i 


reate a FAB 

File name address 
File name size 
Temporary file 
Name block address 
CR/LF records 
Create a RAB 

FAB address 


Record buffer addr 


Record buffer size 
Name block 


Name buffer address 
Name buffer size 


! Create the file 


If failure 
Delete file 


Close the file 


Set dey ice name 


! Set file ID 
! directory ID 
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MAILSPRINT QUEUE MAIL MESSAGE FOR PRINTING tose =1984 01:14:1 VAX=11 Bi $-32 V4.0-742 Page 27 
v04-000 ete TPE Me et HS tt nif 
7 D4 7 CLRL 45) ; | : 
ga F 9 CALLS #7, SYSS$SNDJBCW : ; 
2 Aimee BRE ag AT ‘ae | 
58 FF50 CD 0 te MOVL  JBC1OSB, STATUS : 0759 : 
1 6 £ 7 BLBS TUS, : ; 
$ DD OO07A 1% PUSHL us : 0730 F 
DD 0007¢ PUSHL R7 : ; 
10 A? DD O007E PUSHL  CURJOBID : ; 
2 DD 1 PUSHL # : F 
OO7E80F2 8F DD 000 ; PUSHL #8290546 : ; 
69 5 FB 00 CALLS #5, LIBSSIGNAL : ; 
16 Oc AC 1 € C 28: BBC #1; PRO FLAGS, 4$ + 0735 ; 
146 AZ 05 00091 TSTL FILES_QOEUED : 0736 
09 12 00094 BNEG 3$ : : 
OO7E80EA er pb 0096 PUSHL #8290538 + 0737 ; 
027D 31 0009C BRW 228 : : 
00000000v 00 00 Fe BOOKS 3$ CALLS #0, CLOSE_JOB : 0738 
52 67 3c OOA7 4$ MOVZWL CURQUE_DESC, R2 + 0744 ; 
18 13 OODAA BEQL 6$ : ; 
50 04 AC DO 000AC MOVL QUEUE, RO + 0745 ; 
60 8 00B0 TSTW (RO) : : 
0B 13 000B2 BEQL 5$ : ; 
51 04 A? 00 000B4 MOVL.  CURQUE_DESC+ + 0747 ; 
52 00 04 B80 99 2D ones CMPC5 (RO), S4(RO), #0, R2, (RI) ; 0746 : 
03 12 OOOBF 5$ BNEQ 6$ : ; 
OOAA 31 000C1 BRW 12$ ; F 
00000000v 00 FB 000C4 6$ CALLS #0, CLOSE_JOB : 0749 F 
04 BC BS 000CB TSTW  aQUEU : 0750 ; 
05 13 OO0CE BEQL 7$ : : 
04 AC DD 90009 PUSHL QUEUE : 0751 : 
05 11 0000 BRB $ ; ; 
50 68 9E 99005 7$ MOVAB P.AAQ, RO + 0752 ; 
50 DD 00008 PUSHL : ; 
57 DD OOODA 8$ PUSHL R7 : 0750 : 
000000006 00 02 FB 000D CALLS #2, STRSCOPY_DX : : 
5E DD OO00E PUSHL : 0753 ; 
08 AE OF OE PUSHAB FLAG F : 
FESS CF 02 FB OO0ES CALLS cer FLAG TRAILER $ 3 
50 CO AD i OOED MOVAB se04eod. SS$ITMBLKPTR > 0764 ; 
80 001F0004 8F DO OO0F1 MOVL 1620, ($$ITMBLKPTR)+ : ; 
0 10 A? i Ors MOVAB EUROB ID; ($$ITMBLKPTR)+ : : 
80 D FC CLRL ITMBLKPTR) + : : 
80 6 Be OOFE CORGUE ESC. ($SITMBLKPTR)+ : ; 
80 86 ORF 8 0101 MOVZBW #134, (SSITMBLKPT ; : 
80 04 A? 00 00105 CURQUE DESC+4, ($$1TMBLKPTR) + : : 
80 D4 00109 CLRL  ($$ITMBLKPTR)+ : 3 
198 CLRW (SSITMBLKPTR) ; ; 
10D LBC FLAGS, 9$ : : 
111 MOVZBL OB. 1 ; : 
13 8 3 3 
11 3 3 
118 V ; 5 
11F 5 3 
122 ; 3 
| 
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MAILSPRINT QUEUE MAIL MESSAGE FOR PRINTING 16-Sep-1984 01:14:1 VAX-11 Bliss-32 V4.0-742 Page 29. 
yo e006 19-808-1 3b 93:13:58 DISKSVMSMASTER:CMAIL.SRCIJPRINT.B32:1 -” ay 
000000006 Q F 9 CALLS , SYSSCONNECT ; 
D MOVL RO, STAT : 
4 E A BLBC TATU $ : 
FECC CD O07E10D2 BF D0 D MOVL #826 42, TMP_RAB+24 + 0807 
1) OC A 2 7 6 BBS #2, PRO_FLAGS, 14$ : 0809 
FEB «=6CDOS'F 6 B PUSHAB TMP_RAB + 0810 
1 OD F PUSHL #1 : 
FOZE CF 02 FB 0 4} CALLS #2, MAILSEXTRACT_MESSAGE ; 
OD 000000006 00 £9 0 28 14$:  BLBC  MAILSGL_FLAGS, 15$ + 0811 
FEBG CD SF OO24F PUSHAB TMP_RAB + 0812 
1 OD 0 ; PUSHL # : 
FOC1 ~=sCF 2 FB CALLS #2, EXTRACT_ALL_ISAM : 
OB 11 O025A BRB 16$ ; 
FEB. CD 9F 00 5¢ 15$: | PUSHAB TMP_RAB + 0813 
01 DD 0026 PUSHL # 3 
FOEB OCF 08 FB 0 62 CALLS 2, EXTRACT_ALL_SEQ : 
56 D0 67 16$ MOVL RO, STATUS : 
12 56 : 026A BLBS STATUS, 18$ + 0815 
FEFD CD 80 8F 88 0026D 17$:  BISB2 #128, TMP_FAB+5 : 0817 
FEFB CD 9F 0027 PUSHAB y : 
000000006 06 01 FB 0027 CALLS #1, ~SYSSCLOSE ; 
04 0027E RET + 0816 
FF10 CD OO7E10SA 8F DO OO27F 18$:  MOVL #8261722, TMP_FAB+24 + 0820 
5B DD 00288 PUSHL R11 + 0822 
FEF8 CD 9F OO2BA PUSHAB TMP_FAB ; 
000000006 00 02 FB 00 be CALLS #2, SYSSCLOSE ; 
01 50 i 00 95 BLBS STATUS, 19$ : 

08 ag FE68 CD 10 28 00299 19$:  MOVC3 #16, TMP_NAM+20, BUFF + 0826 
7 FE78 CD 06 8 0020 MOVC3 #6, TMP_RAM+36, (PTR) : 0827 
63 FE7E CD 6 28 002A6 MOVC3 #6. TMP"NAM#+42. (PTR) : 0828 

50 80 AD F O2AC MOVAB ADOEILE IST, $$I1TMBLKPTR + 0837 
B80 0027001C 8F 00 00280 MOVL #255 ($$1TMBLKPTR) + : 
80 08 AE 9E 00287 MOVAB BUFF ($$1TMBLKPTR) + : 
80 D4 00288 CLRL ( S1fMBLKPTR) + : 
80 00180000 8F BO 02BD MOVL #1572864, (S$ITMBLKPTR)+ : 
0 7C 0024 CLRO ($$ITMBLKPTR)+ : 
80 00230004 BF D0 002C6 MOVL #2293764, (S$$ITMBLKPTR)+ ; 
80 08 AC 9E 002CD MOVAB COPIES, ($$ITMBLKPTR)+ ; 
0 7C 00201 CLRQ ($$ITMBLKPTR)+ ; 
E 7C 00203 CLRQ  =(SP) + 0840 
FF50 CD 9F 00205 PUSHAB JBCIOSB : 
80 AD Hi 0 09 PUSHAB ADDFILELIST : 
7E 0 D 0020¢ MOVa #2, -(SP) : 
5 D4 0 OF CLRL 0s = (§P) ; 
6A F E1 CALLS #7, SYS$SNDJBCW : 
56 0 DO 00364 HOVE” = RO’ STAT : | 
08 6 €£ £7 BLBC STATUS, 208 > 0841 
6 FF50 CD 00 EA MOVL  JBCIOSB, STATUS + 0842 
10 6 €£ EF BLBS STATUS, 21$ : 
8 DD Fe 20$:  PUSHL STATUS + 0843 
DD OO2F PUSHL ; 
1 DD r6 PUSHL #1 : 
00768032 BF DD O0cF PUSHL #8290354 ; 
69 4 FB FE CALLS #4, LIBSSIGNAL : 
04 0 RET 3 
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ROUTINE CLOSE_JOB : NOVALUE = 
| FUNCTIONAL DESCRIPTION: 


This routine is called to close any currently open print job, 
releasing it for printing. 


' 
' 
' 
It is also called as an exit handler at image run down. 
i INPUTS: 

i CURQUEUVE = Current queue name. 

= zero if none. 

i QUTPUTS: 

: CURQUEUE = zero. 


i If a print job is open, it is closed. 


STATUS 
CLOSEJ OBLIST : SITMLST_DECL(ITEMS=1), 
JBCSTSBUF SBBLOCK ENARSC “MAXRSS]), 


JBCIOSB : cTORCZ LONG] LONG); 
IF .CURQUE_DESCCDSC$W_LENGTH] NEQ 0 
THEN BEG 


SITMLST ~1NITCITMLST=CLOSEJOBLIST 
“(ITMCOD=SJC$_JOB_STATUS OUTPUT, 
Urs? =NAMSC_MARRSS, 
BUF ADR=JBCSTSBUF, 
RETLEN=DESCLO))): 
ESCO] = 0; 
DESCC1] = yecstsB 
IF (STATUS = $SN DUB bivcrunce SIC8_ CLOSE_JOB, 
ITMLST=CLOSEJOB 
10SB=JBC10SB) ) 
AND (STATUS = | eaediets 
THEN BEGIN 
IF FILES QUEVED NEQ 0 
cs THEN MAILSPUT_OUTPUT (DESC); 
ELSE IF .FILES_QUEUED NEQ 0 
THEN SIGNAL (MAILS EREPRIJOB, 1,CURQUE_DESC,.STATUS) ; 
STRSFREE1 DX (CURQUE_DESC) 'No current queue 
FILES_QUEDED = 0; 
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MAILSPRINT QUEUE MAIL MESSAGE FOR PRINTING 16-Sep-1984 OF 1S: h¢ VAX-11 Bliss-32 V4.0-742 Page a 
v04-000 14-Sep-1984 12:42:2 DISKSVMSMASTER: CMAIL.SRCIJPRINT.B32;1 (1 4 
: 774 bait 1 END $ 
: 775 908 0 ELUDOM | é 
.EXTRN LIBSSIGNAL ; 
: PSECT SUMMARY : 
; Name Bytes Attributes : 
: SOWNS #3 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON NOP IC. ALIGN(2) ; 
; SCODES 223 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ‘ 
3 Library Statistics ; 
Schoo Sees sc 05ers Symbols -<------- Pages Processing : 
; File Total Loaded Percent Mapped Time ; 
: _$255$DUA28: CSYSLIBISTARLET.L32;1 9776 193 1 581 00:00.7 : 
: 7$33SsDUA28:CMAIL.08J JMAILDEF 132: 1 45 i 2 26 00:00.2 ; 
; COMMAND QUALIFIERS : 
4 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:PRINT/OBJ=OBJ$:PRINT MSRC$:PRINT/UPDATE=(ENH$:PRINT) 3 
3; Size: 2100 code + 210 data bytes ; 
; Run Time: 0:30.5 é 
; Elapsed Time: 01:50.5 s 
3; Lines/CPU Min: 1789 5 
: paneneet ea 48975 3 
; Y Used: 332 pages : 
; one ation Complete ‘ 
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